专用于某些THINKPAD的键盘大小写指示灯

专用于某些THINKPAD的大小写指示灯
procedure TFrmMain.FormShow(Sender: TObject);
var Reg:TRegistry;
    sret:string;
begin
  Reg:=TRegistry.Create;Reg.rootkey :=HKEY_LOCAL_MACHINE;
  try
    if Reg.openkey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true)  then
    try
      sret:=reg.ReadString('虚拟大小写指示灯');
      reg.CloseKey;
      if sret='' then
        CheckBox1.Checked:=false
      else
        CheckBox1.Checked:=true;
    except
    end;
  finally
    reg.free;
  end;
  if Timer2<>nil then Timer2.Enabled:=true;
end;

procedure TFrmMain.N1Click(Sender: TObject);
begin
   Self.Show();
end;

procedure TFrmMain.N2Click(Sender: TObject);
begin
   if MessageDlg('是否决定退出?',mtconfirmation ,[mbok,mbcancel],2)=1 then Application.Terminate;
end;

procedure TFrmMain.Timer1Timer(Sender: TObject);
var KeyState: TKeyboardState;
begin
    //检测大写情况
    if (GetKeyState(VK_CAPITAL) = 1) then
    begin
        Self.TrayIcon1.IconIndex:=1;
    end
    else
    begin
       Self.TrayIcon1.IconIndex:=0;
    end;
end;.
├── 找例子网_虚拟键盘指示灯.rar
└── 虚拟键盘指示灯
    ├── Win32
    │   └── Debug
    │       ├── main.dcu
    │       ├── vkeylap.exe
    │       ├── vkeylap.exe.有广告
    │       └── vkeylap.rar
    ├── __history
    │   ├── main.dfm.~36~
    │   ├── main.dfm.~37~
    │   ├── main.dfm.~38~
    │   ├── main.dfm.~39~
    │   ├── main.dfm.~40~
    │   ├── main.dfm.~41~
    │   ├── main.dfm.~42~
    │   ├── main.dfm.~43~
    │   ├── main.dfm.~44~
    │   ├── main.dfm.~45~
    │   ├── main.pas.~43~
    │   ├── main.pas.~44~
    │   ├── main.pas.~45~
    │   ├── main.pas.~46~
    │   ├── main.pas.~47~
    │   ├── main.pas.~48~
    │   ├── main.pas.~49~
    │   ├── main.pas.~50~
    │   ├── main.pas.~51~
    │   ├── main.pas.~52~
    │   ├── vkeylap.dpr.~1~
    │   ├── vkeylap.dpr.~2~
    │   ├── vkeylap.dpr.~3~
    │   └── vkeylap.dpr.~4~
    ├── aa1.ico
    ├── aa2.ico
    ├── main.dfm
    ├── main.pas
    ├── vkeylap.dpr
    ├── vkeylap.dproj
    ├── vkeylap.dproj.local
    ├── vkeylap.dsk
    ├── vkeylap.identcache
    ├── vkeylap.res
    ├── vkeylap.~dsk
    └── vkeylap_Icon.ico

4 directories, 41 files